unit ParcaDegisimTanimlari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClassEmptyList, wwdblook, Menus, DB, ADODB, ImgList, XPMan,
  StdActns, ActnList, StdCtrls, Buttons, fcLabel, Grids, Wwdbigrd,
  Wwdbgrid, ExtCtrls, fcStatusBar;

type
  TfmParcaDegisimTanimlari = class(TfmFormClassEmptyList)
    cbUstGrup: TwwDBLookupCombo;
    cbGrup: TwwDBLookupCombo;
    cbAltGrup: TwwDBLookupCombo;
    cbModel: TwwDBLookupCombo;
    cbUstGrup2: TwwDBLookupCombo;
    cbGrup2: TwwDBLookupCombo;
    cbModel2: TwwDBLookupCombo;
    cbAltGrup2: TwwDBLookupCombo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure aqEntryBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmParcaDegisimTanimlari: TfmParcaDegisimTanimlari;

implementation
uses data;
{$R *.dfm}

procedure TfmParcaDegisimTanimlari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmParcaDegisimTanimlari := nil;
end;

procedure TfmParcaDegisimTanimlari.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

procedure TfmParcaDegisimTanimlari.aqEntryBeforePost(DataSet: TDataSet);
begin
  inherited;
  DataSet.FieldByName('UstGrupId2').Value := DataSet.FieldByName('UstGrupId').Value;
  DataSet.FieldByName('GrupId2').Value := DataSet.FieldByName('GrupId').Value;
end;

end.

